home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 2004 #11
/
Amiga Plus CD - 2004 - No. 11.iso
/
AmiSoft
/
Dev
/
basic
/
blitzgtfix.lha
/
BlitzGTFix
/
BBGTLib_Examples
/
gtslider.bb2
< prev
next >
Wrap
Text File
|
2002-01-27
|
1KB
|
58 lines
WbToScreen 3
Use Screen 3
LoadFont 2,"opal.font",9
Use IntuiFont 2
; DONT USE COMMANDS WHICH USE A3 AS A PARAMETER DIRECTLY WITH HEX$
; COS IT GOES SCREWY
foo.l=GTSlider(0,1,20,20,150,15,"Normal",#PLACETEXT_ABOVE,5,50)
NPrint Hex$(foo)
foo.l=GTSlider(0,2,20,60,150,15,"Top",#PLACETEXT_ABOVE,5,50,20)
NPrint Hex$(foo)
foo.l=GTSlider(0,3,20,100,150,15,"Disabled",#PLACETEXT_ABOVE|$40,5,50)
NPrint Hex$(foo)
foo.l=GTSlider(0,4,20,140,150,15,"Immediate",#PLACETEXT_ABOVE|$80,5,50)
NPrint Hex$(foo)
foo.l=GTSlider(0,5,20,180,150,15,"Relverify",#PLACETEXT_ABOVE|$4000,5,50)
NPrint Hex$(foo)
foo.l=GTSlider(0,6,200,20,15,150,"Vertical",#PLACETEXT_RIGHT|$400,5,50)
NPrint Hex$(foo)
GTNewLookProp On
foo.l=GTSlider(0,7,20,220,150,15,"Newlookprop",#PLACETEXT_ABOVE,5,50)
NPrint Hex$(foo)
AddIDCMP #SLIDERIDCMP
Window 0,0,0,600,300,$100f,"jjlk",-1,-1
DefaultOutput
AttachGTList 0,0
dragging.w=0
While ev.l<>#IDCMP_CLOSEWINDOW
ev.l=WaitEvent
Select ev
Case #IDCMP_GADGETDOWN
NPrint "Gadget down event from gadget ",GadgetHit,", new position ",EventCode
dragging=1
Case #IDCMP_GADGETUP
NPrint "Gadget up event from gadget ",GadgetHit,", new position ",EventCode
dragging=0
Case #IDCMP_MOUSEMOVE
If dragging=1
NPrint "Slider ",GadgetHit," dragged to position ",EventCode
EndIf
End Select
Wend
DetachGTList 0
End